unit CoolUtils.CommonTypes;

interface

uses
  System.Classes,
  Data.DB,
  cxGridCustomView,
  cxGridCustomTableView;

type

  TCoolCustomEvents = class(TComponent)
    public
      procedure BeforeOpen(DataSet: TDataSet); virtual;
      procedure AfterOpen(DataSet: TDataSet); virtual;
      procedure BeforeClose(DataSet: TDataSet); virtual;
      procedure AfterClose(DataSet: TDataSet); virtual;
      procedure BeforeInsert(DataSet: TDataSet); virtual;
      procedure AfterInsert(DataSet: TDataSet); virtual;
      procedure BeforeEdit(DataSet: TDataSet); virtual;
      procedure AfterEdit(DataSet: TDataSet); virtual;
      procedure BeforePost(DataSet: TDataSet); virtual;
      procedure AfterPost(DataSet: TDataSet); virtual;
      procedure BeforeCancel(DataSet: TDataSet); virtual;
      procedure AfterCancel(DataSet: TDataSet); virtual;
      procedure BeforeDelete(DataSet: TDataSet); virtual;
      procedure AfterDelete(DataSet: TDataSet); virtual;
      procedure BeforeScroll(DataSet: TDataSet); virtual;
      procedure AfterScroll(DataSet: TDataSet); virtual;
      procedure BeforeRefresh(DataSet: TDataSet); virtual;
      procedure AfterRefresh(DataSet: TDataSet); virtual;
      procedure NewRecord(DataSet: TDataSet); virtual;
      procedure CalcFields(DataSet: TDataSet); virtual;
      procedure DeleteError(DataSet: TDataSet; E: EDatabaseError;
        var Action: TDataAction); virtual;
      procedure EditError(DataSet: TDataSet; E: EDatabaseError;
        var Action: TDataAction); virtual;
      procedure PostError(DataSet: TDataSet; E: EDatabaseError;
        var Action: TDataAction); virtual;
      procedure OnFilterRecord(DataSet: TDataSet; var Accept: Boolean); virtual;
  end;

implementation

{ TCoolCustomEvents }

procedure TCoolCustomEvents.AfterCancel(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterClose(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterDelete(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterEdit(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterInsert(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterOpen(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterPost(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterRefresh(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.AfterScroll(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeCancel(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeClose(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeDelete(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeEdit(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeInsert(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeOpen(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforePost(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeRefresh(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.BeforeScroll(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.CalcFields(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.DeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin

end;

procedure TCoolCustomEvents.EditError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin

end;

procedure TCoolCustomEvents.NewRecord(DataSet: TDataSet);
begin

end;

procedure TCoolCustomEvents.OnFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin

end;

procedure TCoolCustomEvents.PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin

end;


end.
